home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
boot c64 comal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-28
|
1KB
|
46 lines
10 PRINT "[147]"; : REM CLEAR SCREEN
20 POKE 53281,0 : REM BACKGROUND BLACK
30 POKE 53280,12: REM BORDER MED. GRAY
40 PRINT "[152]"; : REM PENCOLOR MD GRAY
51 PRINT "LOADING COMMODORE 64 COMAL VERSION 0.14 [146]";
60 PRINT "[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
70 PRINT "COMAL HAS MOST OF BASIC PLUS STRUCTURES"
80 PRINT "OF PASCAL AND THE LOGO TURTLE GRAPHICS."
120 PRINT
130 PRINT "TUTORIAL: BEGINNING COMAL
145 [153] "DOCUMENTATION: COMAL HANDBOOK
150 PRINT "NEWSLETTER: COMAL TODAY
155 [153]
160 [153] " AVAILABLE FROM: "
165 [153] "SYS"; : [143] PENCOLOR YELLOW
170 [153] " COMAL USERS GROUP, U.S.A., LIMITED "
180 [153] " 5501 GROVELAND TER. "
185 [153] " MADISON, WI 53716PRINT#
190 PRINT "SEND SELF ADDRESSED STAMPED ENVELOPE OR"
200 PRINT "CALL [158]608-222-4432[152] FOR MORE INFO."
210 PRINT
215 PRINT "[158]"; : REM PENCOLOR YELLOW
220 PRINT "YOU ARE ALLOWED TO USE THIS VERSION ONLY";
230 PRINT "ON THE COMMODORE 64 UNCHANGED. YOU MAY"
240 PRINT "MAKE COPIES FOR YOUR SCHOOL AND FRIENDS."
245 PRINT "[152]"; : REM PENCOLOR MD GRAY
250 PRINT "COMAL PROGRAMS ON THIS DISK ARE LOADED:"
270 PRINT " LOAD "CHR$(34)"NAME"CHR$(34)
272 PRINT " RUN"
275 PRINT "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
280 PRINT "BACKUP THIS DISK WITH 1541 BACKUP FIRST[146]";
899 REM
900 REM
910 REM CHAIN"HI + <RETURN KEY>
920 [151] 198,9
930 [151] 631,[198]("C")
940 [151] 632,[198]("H")
950 [151] 633,[198]("A")
960 [151] 634,[198]("I")
970 [151] 635,[198]("N")
980 [151] 636,34
990 [151] 637,[198]("H")
1000 [151] 638,[198]("I")
1010 [151] 639,13
1020 [147] "C64 COMAL 0.14",8